Carousel Volume 2 #1/carousel.iso/mactosh/hc/clientli.sit/Client List 3/Client List 3/background_2637.txt

Text File | 1988-02-17 | 19.1 KB | 913 lines

-- background: 2637 from stack: in
-- bmap block id: 2898
-- flags: 4000
-- background id: 0
-- name: File Card


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=476 top=231 right=256 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  Visual effect scroll right
  go to prev card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=477 top=201 right=226 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  Visual effect scroll left
  go to next card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=476 top=261 right=286 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  push recent card
  Visual effect barn door open
  pop card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=6 top=152 right=171 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=50 top=172 right=191 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  push card
  visual effect iris close
  go home
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=6 top=172 right=191 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "Name" or "Co Name" or "Catagory"
  if it is "Name"
  then sort by Last word of first line of field "Name"
else if it is "Co Name"
then sort by first word of first line of field "Company Name"
else if it is "Catagory"
then sort by first word of first line of field "cat"
end mouseUp



-- part 44 (field)
-- low flags: 00
-- high flags: 2001
-- rect: left=309 top=103 right=124 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cat


-- part 46 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=50 top=152 right=171 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  doMenu "FIND..."
end mouseUp



-- part 48 (field)
-- low flags: 00
-- high flags: 6001
-- rect: left=95 top=23 right=44 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Name


-- part 42 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=157 top=224 right=245 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 12
-- part name: Home Phone


-- part 49 (field)
-- low flags: 00
-- high flags: 6001
-- rect: left=95 top=43 right=64 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Company Name


-- part 50 (field)
-- low flags: 00
-- high flags: 6001
-- rect: left=95 top=63 right=85 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ADDRESS


-- part 52 (field)
-- low flags: 00
-- high flags: 6007
-- rect: left=94 top=124 right=203 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Notes


-- part 51 (field)
-- low flags: 00
-- high flags: 6001
-- rect: left=95 top=83 right=104 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CSZ


-- part 56 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=157 top=204 right=225 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 12
-- part name: Work Phone


-- part 60 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=140 top=224 right=239 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Home
----- HyperTalk script -----
on mouseUp
  global mode,string,len,baud,stop,parity,data,ds
  put OpenModem(baud,stop,parity,data,1,buf) into input
  if "0123456789(*#" contains first character of Field "Home Phone"
  then
  set hilite of bkgnd button "Dial Home" to false
  put field "Field 2" into DS
  put DS && field "Home Phone" & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
else
  set hilite of bkgnd button "Dial Home" to false
  Ask "Dial what number?"
  if it <= 0 then exit mouseUp
  else
    put field "Field 2" into DS
    put DS && it & return into string
    put the length of string into len
    put DoModem(mode,string,len) into str
  end if
end if
if FIELD "A2" = "ΓÇó"
then
if field "Field 2" = "ATDP"
then
wait 15 seconds
put "ATH0" into DS
put DS & return into string
put the length of string into len
put DoModem(mode,string,len) into str
else
  wait 5 seconds
  put "ATH0" into DS
  put DS & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
end if
end if
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=140 top=204 right=220 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Work
----- HyperTalk script -----
on mouseUp
  global input,mode,string,len,baud,stop,parity,data,ds
  put OpenModem(baud,stop,parity,data,1,buf) into input
  if "0123456789(*#" contains first character of Field "Work Phone"
  then
  set hilite of bkgnd button "Dial Work" to false
  put field "Field 1" into DS
  put DS && field "Work Phone" & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
else
  set hilite of bkgnd button "Dial Work" to false
  Ask "Dial what number?"
  if it <= 0 then exit mouseUp
  else
    put field "Field 1" into DS
    put DS && it & return into string
    put the length of string into len
    put DoModem(mode,string,len) into str
  end if
end if
if FIELD "A1" = "ΓÇó"
then
if field "Field 1" = "ATDP"
then
wait 15 seconds
put "ATH0" into DS
put DS & return into string
put the length of string into len
put DoModem(mode,string,len) into str
else
  wait 5 seconds
  put "ATH0" into DS
  put DS & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
end if
end if
end mouseUp



-- part 88 (field)
-- low flags: 00
-- high flags: 2001
-- rect: left=95 top=102 right=124 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ZIP


-- part 90 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=141 top=244 right=261 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Pager
----- HyperTalk script -----
on mouseUp
  global mode,string,len,baud,stop,parity,data,ds
  put OpenModem(baud,stop,parity,data,1,buf) into input
  if "0123456789(*#" contains first character of Field "Pager"
  then
  set hilite of bkgnd button "Dial Pager" to false
  put field "Field 3" into DS
  put DS && field "Pager" & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
else
  set hilite of bkgnd button "Dial Pager" to false
  Ask "Dial what number?"
  if it <= 0 then exit mouseUp
  else
    put field "Field 3" into DS
    put DS && it & return into string
    put the length of string into len
    put DoModem(mode,string,len) into str
  end if
end if
if FIELD "A3" = "ΓÇó"
then
if field "Field 3" = "ATDP"
then
wait 15 seconds
put "ATH0" into DS
put DS & return into string
put the length of string into len
put DoModem(mode,string,len) into str
else
  wait 5 seconds
  put "ATH0" into DS
  put DS & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
end if
end if
end mouseUp



-- part 95 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=6 top=212 right=250 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hang Up
----- HyperTalk script -----
on mouseUp
  global string,len
  put "ATH0" & return into string
  put DoModem(mode,string,len) into str
end mouseUp



-- part 89 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=157 top=244 right=265 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 12
-- part name: Pager


-- part 96 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=6 top=192 right=211 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by ZIP
----- HyperTalk script -----
on mouseUp
  answer "Sort by ZIP?" with "NO" or "YES"
  if it is "YES"
  then sort by first word of first line of field "ZIP"
else if it is "NO"
then exit mouseup
end mouseUp



-- part 99 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=41 top=258 right=278 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Type
----- HyperTalk script -----
on mouseUp
  Visual effect zoom open
  hide message window
  push card
  go to card id 9933
end mouseUp



-- part 100 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=8 top=292 right=313 bottom=93
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Modem
----- HyperTalk script -----
on mouseUp
  push card
  hide message window
  go to card id 10369
end mouseUp




-- part 104 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=280 top=201 right=228 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:      OK   3
----- HyperTalk script -----
on mouseUp
  show field "work phone"
  show field "home phone"
  show field "pager"
  show field "notes"
  hide background button "     OK   3"
end mouseUp



-- part 108 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=8 top=315 right=336 bottom=93
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reset (ATZ)
----- HyperTalk script -----
on mouseUp
  global string,len
  put "ATZ" & return into string
  put DoModem(mode,string,len) into str
end mouseUp



-- part 114 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=111 top=206 right=220 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Field 1


-- part 115 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=111 top=225 right=239 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Field 2


-- part 116 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=111 top=245 right=259 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Field 3


-- part 117 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=111 top=266 right=280 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Field 4


-- part 122 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=141 top=264 right=281 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial Misc
----- HyperTalk script -----
on mouseUp
  global mode,string,len,baud,stop,parity,data,ds
  put OpenModem(baud,stop,parity,data,1,buf) into input
  if "0123456789(*#" contains first character of Field "Misc"
  then
  set hilite of bkgnd button "Dial Misc" to false
  put field "DialString" into DS
  put DS && field "Field 4" & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
else
  set hilite of bkgnd button "Dial Misc" to false
  Ask "Dial what number?"
  if it <= 0 then exit mouseUp
  else
    put field "Field 4" into DS
    put DS && it & return into string
    put the length of string into len
    put DoModem(mode,string,len) into str
  end if
end if
if FIELD "A4" = "ΓÇó"
then
if field "Field 4" = "ATDP"
then
wait 15 seconds
put "ATH0" into DS
put DS & return into string
put the length of string into len
put DoModem(mode,string,len) into str
else
  wait 5 seconds
  put "ATH0" into DS
  put DS & return into string
  put the length of string into len
  put DoModem(mode,string,len) into str
end if
end if
end mouseUp



-- part 123 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=157 top=264 right=285 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 12
-- part name: Misc


-- part 129 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=385 top=203 right=224 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A1
----- HyperTalk script -----
on mouseUp
  IF FIELD "A1" <= 0
  THEN
  put "ΓÇó" inTO field "A1"
else
  put "" inTO field "A1"
end if
end mouseUp



-- part 130 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=385 top=223 right=243 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A2
----- HyperTalk script -----
on mouseUp
  IF FIELD "A2" <= 0
  THEN
  put "ΓÇó" inTO field "A2"
else
  put "" inTO field "A2"
end if
end mouseUp



-- part 131 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=385 top=243 right=263 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A3
----- HyperTalk script -----
on mouseUp
  IF FIELD "A3" <= 0
  THEN
  put "ΓÇó" inTO field "A3"
else
  put "" inTO field "A3"
end if
end mouseUp



-- part 132 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=385 top=263 right=284 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A4
----- HyperTalk script -----
on mouseUp
  IF FIELD "A4" <= 0
  THEN
  put "ΓÇó" inTO field "A4"
else
  put "" inTO field "A4"
end if
end mouseUp



-- part 133 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=96 top=204 right=225 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B1
----- HyperTalk script -----
on mouseUp
  IF FIELD "B1" <= 0
  THEN
  put "ΓÇó" inTO field "B1"
  put "ATDT" into field "Field 1"
else
  put "" inTO field "B1"
  put "ATDP" into field "Field 1"
end if
end mouseUp



-- part 134 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=96 top=223 right=244 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B2
----- HyperTalk script -----
on mouseUp
  IF FIELD "B2" <= 0
  THEN
  put "ΓÇó" inTO field "B2"
  put "ATDT" into field "Field 2"
else
  put "" inTO field "B2"
  put "ATDP" into field "Field 2"
end if
end mouseUp



-- part 135 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=96 top=243 right=264 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B3
----- HyperTalk script -----
on mouseUp
  IF FIELD "B3" <= 0
  THEN
  put "ΓÇó" inTO field "B3"
  put "ATDT" into field "Field 3"
else
  put "" inTO field "B3"
  put "ATDP" into field "Field 3"
end if
end mouseUp



-- part 136 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=96 top=264 right=285 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B4
----- HyperTalk script -----
on mouseUp
  IF FIELD "B4" <= 0
  THEN
  put "ΓÇó" inTO field "B4"
  put "ATDT" into field "Field 4"
else
  put "" inTO field "B4"
  put "ATDP" into field "Field 4"
end if
end mouseUp